pacman::p_load(tidyr,stringi,stringdist,fuzzyjoin,stringr)

setwd("C:/Users/Andrei/Google Drive/Research/20190300 Romania Bac/SIIIR Codes/Adm HS SIIIR Codes/")
eval(parse('add_codes_adm_wrapper.R', encoding = 'UTF-8'))
years_adm<-2017:2004
add_codes_adm_wrapper(years_adm)
  

# setwd("C:/Users/Andrei/Google Drive/Research/20190300 Romania Bac/")
#  test<-readRDS('data_adm_raw2017_siiir_codes.rds') 
#  test2<-readRDS('data_adm_raw2017.rds') 


 